﻿Imports CalificadorPremiosOscarDAL
Imports CalificadorPremiosOscarDAL.pcs.dao


Namespace pcs.Login.Administrador

    Public Class LoginAdministradorServicioImpl
        Implements LoginAdministradorServicio


        Public Function loginAdministrador(usuario As String, contrasenia As String) As Boolean Implements LoginAdministradorServicio.loginAdministrador
            Try
                Dim resultado As CalificadorPremiosOscarDAL.Administrador = New AdministradorCeremoniasDAO().ObtenerAdministrador(usuario, contrasenia)
                If resultado Is Nothing Then
                    Return False
                Else
                    Return True
                End If
            Catch ex As NullReferenceException
                Return False
            Catch ex As Exception
                Throw ex
            End Try
        End Function

    End Class

End Namespace

